# R 语言 xml

# 读取xml
library("XML");

# 读取xml文件
result <- xmlParse(file="input.xml");


# 获取xml节点数
rootnode <- xmlRoot(result);

rootsize <- xmlSize( rootnode );

print("rootnode for number");

print( rootsize );

# 第一个节点的详情信息
print("first rootnode for number ")
print( rootnode[1] );

# 获取指定节点元素
print(rootnode[[1]][[1]][[1]])

print(rootnode[[1]][[5]][[1]])

print(rootnode[[3]][[2]][[1]])

# 将xml语言转换成dataframe
print("xml change datafram type")
xmldatafram <- xmlToDataFrame("input.xml");
print( xmldatafram )